﻿<Serializable()> _
Public Class EentidadFin

#Region "           Atributos                       "
    Private _idEntidadFin As Int32
    Private _descEntidadFin As String
    Private _nomRepUno As String
    Private _apeMaternoUno As String
    Private _apePaternoUno As String
    Private _cargoRepUno As String
    Private _telRepUno As String
    Private _nomRepDos As String
    Private _apeMaternoDos As String
    Private _apePaternoDos As String
    Private _cargoRepDos As String
    Private _telRepDos As String
    Private _porcInteres As Decimal
    Private _porcCuotaInic As Decimal

    Private _tasaInteresActiva As Decimal
    Private _tasaSeguroDesgravamen As Decimal
    Private _tasaEfectivaAnual As Decimal
    Private _tasaEfectivaMensual As Decimal
    Private _montoBono As Decimal
    Private _porteComisones As Decimal
    Private _factorSeguro As Decimal

    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
    Private _idProyecto As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idEntidadFin() As Int32
        Get
            Return _idEntidadFin
        End Get
        Set(ByVal value As Int32)
            _idEntidadFin = value
        End Set
    End Property
    Public Property descEntidadFin() As String
        Get
            Return _descEntidadFin
        End Get
        Set(ByVal value As String)
            _descEntidadFin = value
        End Set
    End Property
    Public Property nomRepUno() As String
        Get
            Return _nomRepUno
        End Get
        Set(ByVal value As String)
            _nomRepUno = value
        End Set
    End Property
    Public Property apeMaternoUno() As String
        Get
            Return _apeMaternoUno
        End Get
        Set(ByVal value As String)
            _apeMaternoUno = value
        End Set
    End Property
    Public Property apePaternoUno() As String
        Get
            Return _apePaternoUno
        End Get
        Set(ByVal value As String)
            _apePaternoUno = value
        End Set
    End Property
    Public Property cargoRepUno() As String
        Get
            Return _cargoRepUno
        End Get
        Set(ByVal value As String)
            _cargoRepUno = value
        End Set
    End Property
    Public Property telRepUno() As String
        Get
            Return _telRepUno
        End Get
        Set(ByVal value As String)
            _telRepUno = value
        End Set
    End Property
    Public Property nomRepDos() As String
        Get
            Return _nomRepDos
        End Get
        Set(ByVal value As String)
            _nomRepDos = value
        End Set
    End Property
    Public Property apeMaternoDos() As String
        Get
            Return _apeMaternoDos
        End Get
        Set(ByVal value As String)
            _apeMaternoDos = value
        End Set
    End Property
    Public Property apePaternoDos() As String
        Get
            Return _apePaternoDos
        End Get
        Set(ByVal value As String)
            _apePaternoDos = value
        End Set
    End Property
    Public Property cargoRepDos() As String
        Get
            Return _cargoRepDos
        End Get
        Set(ByVal value As String)
            _cargoRepDos = value
        End Set
    End Property
    Public Property telRepDos() As String
        Get
            Return _telRepDos
        End Get
        Set(ByVal value As String)
            _telRepDos = value
        End Set
    End Property
    Public Property porcInteres() As Decimal
        Get
            Return _porcInteres
        End Get
        Set(ByVal value As Decimal)
            _porcInteres = value
        End Set
    End Property
    Public Property porcCuotaInic() As Decimal
        Get
            Return _porcCuotaInic
        End Get
        Set(ByVal value As Decimal)
            _porcCuotaInic = value
        End Set
    End Property

    Public Property tasaInteresActiva() As Decimal
        Get
            Return _tasaInteresActiva
        End Get
        Set(ByVal value As Decimal)
            _tasaInteresActiva = value
        End Set
    End Property
    Public Property tasaSegurpDesgravamen() As Decimal
        Get
            Return _tasaSeguroDesgravamen
        End Get
        Set(ByVal value As Decimal)
            _tasaSeguroDesgravamen = value
        End Set
    End Property
    Public Property tasaEfectivaAnual() As Decimal
        Get
            Return _tasaEfectivaAnual
        End Get
        Set(ByVal value As Decimal)
            _tasaEfectivaAnual = value
        End Set
    End Property
    Public Property tasaEfectivaMensual() As Decimal
        Get
            Return _tasaEfectivaMensual
        End Get
        Set(ByVal value As Decimal)
            _tasaEfectivaMensual = value
        End Set
    End Property
    Public Property montoBono() As Decimal
        Get
            Return _montoBono
        End Get
        Set(ByVal value As Decimal)
            _montoBono = value
        End Set
    End Property
    Public Property portesComisiones() As Decimal
        Get
            Return _porteComisones
        End Get
        Set(ByVal value As Decimal)
            _porteComisones = value
        End Set
    End Property
    Public Property factorSeguro() As Decimal
        Get
            Return _factorSeguro
        End Get
        Set(ByVal value As Decimal)
            _factorSeguro = value
        End Set
    End Property

    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idEntidadFin As Int32)
        Me.idEntidadFin = idEntidadFin
        Me.descEntidadFin = ""
    End Sub
    Public Sub New(ByVal idEntidadFin As Int32, ByVal descEntidadFin As String)
        Me.idEntidadFin = idEntidadFin
        Me.descEntidadFin = descEntidadFin
    End Sub
    Public Sub New(ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal nomRepUno As String, ByVal apeMaternoUno As String, _
                   ByVal apePaternoUno As String, ByVal cargoRepUno As String, ByVal telRepUno As String, ByVal nomRepDos As String, _
                   ByVal apeMaternoDos As String, ByVal apePaternoDos As String, ByVal cargoRepDos As String, ByVal telRepDos As String, _
                   ByVal porcInteres As Decimal, ByVal porcCuotaInic As Decimal, ByVal tasaInteresActiva As Decimal, ByVal tasaSegurpDesgravamen As Decimal, _
                   ByVal tasaEfectivaAnual As Decimal, ByVal tasaEfectivaMensual As Decimal, ByVal montoBono As Decimal, ByVal portesComisiones As Decimal, _
                   ByVal factorSeguro As Decimal, ByVal estado As String, ByVal idProyecto As Int32)
        Me.idEntidadFin = idEntidadFin
        Me.descEntidadFin = descEntidadFin
        Me.nomRepUno = nomRepUno
        Me.apeMaternoUno = apeMaternoUno
        Me.apePaternoUno = apeMaternoUno
        Me.cargoRepUno = cargoRepUno
        Me.telRepUno = telRepUno
        Me.nomRepDos = nomRepDos
        Me.apeMaternoDos = apeMaternoDos
        Me.apePaternoDos = apePaternoDos
        Me.cargoRepDos = cargoRepDos
        Me.telRepDos = telRepDos
        Me.porcInteres = porcInteres
        Me.porcCuotaInic = porcCuotaInic
        Me.tasaInteresActiva = tasaInteresActiva
        Me.tasaSegurpDesgravamen = tasaSegurpDesgravamen
        Me.tasaEfectivaAnual = tasaEfectivaAnual
        Me.tasaEfectivaMensual = tasaEfectivaMensual
        Me.montoBono = montoBono
        Me.portesComisiones = portesComisiones
        Me.factorSeguro = factorSeguro
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idProyecto = idProyecto
    End Sub
#End Region

End Class
